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65816 News -- Talked with Bill Mensch a few days ago, and he 
expects full production in just a few weeks. There should be a 
lot of sources soon. Bill has a few more great chips in mind, 
upgrading the 6502 family even further. 


David Eyes is writing a detailed programmer's reference manual 
for the 65816, to be published about July by Brady. Bill says 
it should answer all our questions. I'll be reviewing it as 
soon as possible. 


We hear of a 6MHzZ 65816 board with 256K RAM for plugging into 
Apples. Let you know when we learn more details. 


Woz News -- We hear Steve, Wendell Sander (/// designer), and 
Joe Ennis (//c designer have teamed up to form a new 
enterprise, outside Apple, with plans to produce a device for 
the home video market. 


Apple II Forever College -- If you would like in-depth training 
in Cupertino, $500 buys 3 days under the masters. One session 
starts March 6th, another May 8th. Call Marian Djurovich at 
(408) 973-6411 for details. 


18-Digit Arithmetic, Part 10..............--BOb Sander-—Cederlof 


At least one error crept into the PRINT USING program we 
printed last month. A line should be inserted to correct the 
problem: 


3045 JSR PRUS.CLEAR YES, NEW FIELD 


This is what I expect to be the final installment of the DP18 
series. Some of you have been typing in and trying out the 
various installments, and others buying the source code on the 
various quarterly disks. We plan to make the composite DP18 
source available at a reasonable price: all parts will be 
properly integrated as a set of 12 source files, ready to 
assemble with the S-C Macro Assembler. The disk will also 
include example programs illustrating the various features, the 
object file of DP18, and a loader program for installing DP18. 
The price for all of it, on one diskette, will be $50. 


Normal Applesoft INPUT statements can be written in several 
ways. An optional quotation can be used for a prompting 
message; if one is used a semicolon must follow the quotation. 
A list of one or more variables follows. 


INPUT variable 
INPUT “quote "“;variable 


In DP18 we implemented the two forms of the INPUT statement 
shown above, except that only a single variable may be used in 
each statement. We also implemented two additional kinds of 
INPUT statements. INPUT# statements allow expressions to be 
entered during execution. INPUTS statements allow picture- 
controlled input. 


INPUT # variable 
INPUT # "quote“;variable 
INPUT $ string,variable-list 


The INPUT# statement allows you to read expressions and 
evaluate them during an INPUT operation. This can greatly 
Simplify entering some numbers. For example, one-third can be 
entered as either ".3333333333333333333333" or simply as "1/3". 
You can enter values such as SQR(2), 2*PI, and so on. You can 
even refer to variables used in the program. After you have 
entered the expression and typed RETURN, DP18 calls on 
Applesoft to tokenize the line, evaluates the expression to a 
numeric value, and stores the value in the INPUT variable your 
program specified. 


We call the INPUTS statement “INPUT using". It is analogous to 
“PRINT using", or the PRINTS statement discussed last month. 
All characters in the INPUTS picture are proccessed the same as 
for PRINTS until characters defining a numeric or string field 
are encountered. Then the magic begins.... 


For a numeric field, underlines are printed to indicate digit 


positions. The cursor is placed after the last underline. If 
there is a decimal point in the picture it will be printed. A 
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S-C Macro Assembler Version Dees a Sosa eh ee bat w ee <A Oe eee eee awewe oLUU 


Version 2.0 Upgrade Kit (for 1.0/1.1/1.2 owners) ...ccccccccccceseee 920 
Source Code for Version 1.1 (on two disk eg Cee el aaa 


Full Screen Editor for S-C Macro (with complete source COd€)...ccceece 
S-C Cross Reference Utility for S-C Macro (without source code).......$20 


Source Code for S-C Cross Reference Utility......«.eee---additional $50 
DISASM Dis-Assembler CRAK “WAL 6) $666. 5-de-w sow C8 C AOS ORNS 6 oh S OO NSC es O30 

Source Code for DISASM 6.65 Sw ck w0 00 654665 E OSS ee eo aw OOdItiCnal $30 
S-C Word Processor (with complete source COdeE) ...cccccccccccccccsecee es IV 
DP18 Source and Clog ee ee eer er re ee ee ee err ee eee 
Double Precision Floating Point for Applesoft (with source code)......$50 
S-C Documentor (complete commented source code of Applesoft ROMS).....$50 
Source Code of //e CX & F8 ROMS on OTS 6 Ses 3 bv Ga Wawen wens eee ewawaelo 


(All source code is formatted for S-C Macro Assembler. Other assemblers 
require some effort to convert file type and edit directives.) 


AAL Quarterly DiSkS.....ccccesccsccccceseeseeach $15, or any four for $45 
Jan-Mar Apr-Jun Jul-Sep Oct-Dec 


Each disk contains 1980 = - - 1 
the source code from 1981 2 3 4 5 
three issues of AAL, 1982 6 7 8 9 
saving you lots of 1983 10 ll 12 13 
typing and testing. 1984 14 15 16 17 


AWIIe Toolkit (Don Lancaster, Synergetics) ..cccccccscccccccsccscceccsee Ss rd 
Visible Computer: 6502 (Software MaSters) .ccccccccccccceee (reg. $50) $45 
ES-CAPE: Extended S-C Applesoft Program Editor (new price, was $60)..$40 
“Bag of Tricks", Worth & Lechner, with diskette....ccccccvee ($39.95) $36 


Blank Diskettes (Verbatim) .....cccccccccncescccesee package of 20 for $32 
(Premium quality, single-sided, double density, with hub rings) 
Vinyl disk pages, 6"x8.5", hold two disks each...ccccccccccccceelO for $6 
Diskette Mailing Protectors (hold 1 or 2 disks).......ee.-..40 cents each 
or $25 per 100 
(These are cardboard folders designed to fit into 6"X9"* Envelopes.) 
Envelopes for Diskette MailerS...cccccccccccccccvccccsccccese 6 Cents each 
quikLoader EPROM System (SCRG)...ccccrccccccccsccsecsccseccsccvecs (9179) $170 
D MAnual Controller (SCRG).ccccccccccccscsccccccccccscccsccccee (990) $85 
Switch-a-Slot (SCRG) accsvscvcccsvevneeecescecasivcceneeeeeeeee ($190) $175 
Extend-a-Slot (SCRG) sis 6 wed bie See Wee Weeks See oe 0 eee oo) $32 
PROmGRAMER (SCRG) 06skss 6a 6b 6 Wee de UN eee ee be dea sue asesd (5189.59) $140 
Write Guard Disk Mod Kit (Mark IV) .crcccccccccccccccccsccccccccccecces S40 


Books, BOOKS, BOOKS.....cscccccesccccccceseees Compare Our discount prices! 
"Inside the Apple //e", Little... .ccrcccccccsccccccccscsee (919.95) $18 
"Apple II+/IIe Troubleshooting & Repair Guide", Brenner..($19.95) $18 
"Apple J{ Circuit Description", Gayler...cccccccccccccecce (922099) $21 
"Understanding the Apple II", Sather..ccccccccccvcccsvccee (922-99) $21 
"Understanding the Apple //e", Sather (avail. April, price about $21) 
"Enhancing Your Apple II, vol. 1", Lancaster.....cceeeeee ($15.95) $15 

Second edition, with //e information. 
"Enhancing Your Apple II/IIe, vol 2", Lancaster ....(May, $19.95) $19 
"Assembly Cookbook for the Apple II/IIe", Lancaster......($21.95) $20 
“Incredible Secret Money Machine", LancaSter..ccccccccceee ($7.95) $7 
"Beneath Apple DOS", Worth & LeEChner..cececcccccvccccccee (919.95) $18 
"Beneath Apple ProDOS", Worth & Lechner....cccrcccccccceces ($19.95) $18 
“What's Where in the Apple", Second Edition....ceccccceeee ($19.95) $19 
"6502 Assembly Language Programming", Leventhal......-..-($18.95) $18 
"6502 Subroutines", Leventhal....ccccccccscccvccscsccecees (918.95) $18 
"Real Time Programming -- Neglected Topics", Foster....... ($9.95) $9 
"Microcomputer GraphicS", MYErS...ccccccccccccccccccscces (Sl2.95) $12 
“Apple II Assembly Language", DeJong....cccccccccccccecee ($15.95) $15 
"Apple II Applications" (Interfacing & I/O experiments)..($13.95) $13 
“Apple Programmer's Handbook", Paul Irwin.wecccccvccccccee ($22.95) $21 
“Electronically Hearing: Computer Speech Recognition.....($13.95) $13 
“Electron. Speaking: Computer Speech Generation (Cater)... ($14.95) $14 
“Assem. Lang. for Applesoft Programmers", Finley & Myers.. ($16.95) $16 


Add $1.50 per book for US shipping. Foreign orders add postage needed. 
Texas residents please add 6 1/8 % sales tax to all orders. 
*** S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
kek 


KEK (214) 324-2050 
*** We accept Master Card, VISA and American Express *** 
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plus sign in the picture will also be printed. All other 
sitions of the field will be printed as underlines. Once the 
Field has been displayed in this fashion, DP18 will check the 
Current value in the variable corresponding with the field. If 
the current value is zero, DP18 merely waits for you to enter 
digits. If the current value is non-zero, that value is 
displayed in the field on the screen, to be used as a default 


value. 


When INPUTS is waiting for you to enter a numeric value, you 
can type the RETURN key to accept the default value. If no 
default value is displayed and you type the RETURN key, you 
will be entering a value of zero. If you begin to type digits, 
they will enter the field from the right end in “calculator 
style“. Using backspace will cause the displayed value to be 
popped to the right, deleting the last digit you typed. One 
Gigit will be deleted each time you type backspace. 


If you type a period, enough zeroes will be automatically 
entered to reach the displayed decimal point. This makes the 
digits you typed before the period into an integer. Then as 
you continue to type digits they will be appended after the 
decimal point. If you type more fractional digits than can be 
seen in the displayed field, they do become part of the input 
value; you just cannot see them on the screen. The value on 
the screen is rounded up if necessary. 


A control-X will erase everything you have typed in the current 
field and allow you to start over. A control-C wili 
immediately BREAK, stopping the program. 


If you type a backspace when there are no digits remaining ina 
field, DP18 will attempt to go back to the previous field in 
the same picture. This will only work if the screen has not 
scrolled during the development of the picture, and requires a 
little bit of planning. (Isn't that what programming is all 
about ?) 


Probably it is time for an example. 


100 &DP: INPUT $ "HV>>'ENTER X: ‘###.#/ 
"ENTER Ys ‘###.#",X(0),Y(0) 


Remember how to read pictures from last month's article? The 
“H" all by itself sets the horizontal cursor position to 0 
(beginning of the line). Likewise, "V" sets us to the top 
line. The ">>" clears from cursor to end of screen. Therefore 
the “HV>>“ does the same thing as a normal HOME command, but 
from within a picture. The string between apostrophes is 
printed on the screen. Then “###.#" defines a numeric field, 
corresponding to the variable xX(0). The "/" causes a carriage 
eee to be displayed, and then “ENTER Y:" and the second 
ield. 


During execution you will first see the screen clear and the 
top line become “ENTER X: __._" followed by a flashing 
cursor. You can type digits, a sign, a decimal point, 
backspace, and so on. When you finally type the RETURN a 
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second line will appear: “ENTER Y: __._"“. If you then type 
a backspace, the cursor will move back to the first line, 
displaying as a default value whatever you left in that line. 


And what about string fields in the INPUTS command? Again, 
underlines will be displayed for each position of the string 
field. If the string already is non-null, its current value 
will be displayed as a default. 


The code that follows is, as has been our practice throughout 
the DP18 series, preceded by some .EQ lines to define routines 
previously published, or part of the Apple ROMS. Variable 
storage is also defined. In the integrated source all these 
definitions are only done once, and the whole program is 
assembled together. 


When the main execution loop of DP18 encounters the INPUT 
token, we land at line 1840. Lines 1850-1860 get the character 
following INPUT, and abort with SYNTAX ERROR if that character 
is a colon or end-of-line token. Lines 1870-1910 handle 
INPUTS, by merely loading up zero in the A-register and jumping 
to PRINT.INPUT (which was listed last month as part of the 
PRINT USING code). The zero value will be stored in a flag, 
indicating to PRINT.INPUT later on that it was called from 
INPUTS rather than PRINTS. When the picture processor 
encounters a numeric or string field description in the picture 
either INPUT.NUM or INPUT.STR will be called, rather than 
PRINT.NUM Or PRINT.STR. 


Lines 1930-2510 handle the normal INPUT and INPUT# modes. The 
character which follows INPUT is stored at INPUT.TYPE, to be 
checked later. If that character was “#", line 1960 gets the 
next character to position properly for scanning optional quote 
or the variable name. Lines 1970-2120 process the optional 
quote. If it is not there, a “?" prompt is used; it it is 
there, the string itself is printed. Lines 2090-2110 make a 
“:" optional after the quote. Normal Applesoft INPUT requires 
a semicolon after the quote, but DP18‘'s INPUT makes it 
optional. In fact, you could even get by with a whole bunch of 
semicolons, if you feel like it.... 


Lines 2140-2190 read a line of text. If the first character of 
the line is a control-C, we abort just like Applesoft. An 
empty line returns a zero value, using line 2500-2510. 


Lines 2210-2270 set up the input line, which begins at $0200 
(WBUF), so that it can be scanned using CHRGET, after pushing 
current TXTPTR value on the stack. If the INPUT.TYPE was “#", 
AS.PARSE and DP.EVALUATE convert the expression down to a 
value. If not, FIN converts the number string to a value. I 
could have used PARSE and EVALUATE regardless, but it would 
take a lot more time to convert plain numbers that way. Lines 
2400-2430 restore the old value of TXTPTR, so that we can 
continue scanning the program. 


Lines 2440-2480 scan the input variable name, and store the 


converted value in that variable. Then back to DP18's main 
loop to get the next command! 
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If we are processing an INPUTS statement, chances are good that 
we will input a number. If so, the picture processor will call 
on INPUT.NUM at line 2530. WBUF at this time holds the image 
of the numeric field description, as amplified from the 
picture. Lines 2540-2600 copy it into IBUF, because we are 
going to clobber the WBUF version everytime we re-display the 
value being entered. IBUF is currently assembled as a 256 byte 
buffer, which is quite extravagant. Probably this is an area 
where things could be tightened up, if you need the memory 
space. 


The code beyond line 2530 is hard to follow. I am reminded of 
the original Adventure game, and its twisty little passages, 
little twisty passages, and so on. I am going to give it a 
broad brush, and those of you with an intense interest can 
explore in more detail on your own. 


As each digit is typed, it is appended to the numeric value by 
ACCUMULATE.DIGIT. Then, after refreshing the picture of the 
field from IBUF, the value is reconverted to display format and 
shown on the screen. It may sound inefficient, but it all 
works nicely. Trimming off digits when backspace is typed is 
done by truncating the DP18 value and then redisplaying. 


LAST.FLD is the routine that tries to back up input to a 
previous field when you type backspace beyond the first digit. 
At the beginning of each field, all the necessary parameters 
are pushed on DP18's stack. LAST.FLD pops these back to move 
to a previous field. Guess what ... I forgot to check for 
stack overflow in the STACK.IT subroutine. Should be no 
problem, however, because only five bytes are stacked for each 
field, there is room for 24 fields. Since a picture must 
necessarily be less than 256 characters (maximum length of an 
Applesoft string) thereby limiting the number of fields, it is 
unlikely that you will have more than 24 fields stack up. If 
you think it important to have more, you had better increase 
the size of STACK. 


String input is handled in an analogous fashion by INPUT.STR, 
starting at line 4970. 


As I mentioned before, this is my final article on DP18. But 
maybe not, if you want more. Some of you might send 
improvements, corrections, or whatever, and I might pass them 
along in these pages. 


DP18 works, and works well; we're proud of it. You can use 
DP18 in your programs, even those you plan to sell. Just give 
us credit where appropriate in your documentation. Remember, 
you can get all the source code already typed in and integrated 
together from us for only $50. 


Page 6....Apple Assembly Line....February, 1985....Copyright (C) S-C SOFTWARE 


D52E- O40 AS.INLIN ~-EQ $D52E READ A LINE 
D559- 050 AS.PARSE -EQ $D559 PARSE INPUT BUFFER 
D863- 1000 AS.BREAK ~-EQ $D86 CTRL-C BREAK 
D995—= 1070 AS.ADDON -EQ $D99 ADD (Y) TO TXTPTR 
DB5C=- 1080 AS.COUT ~EQ $DB5C PRINT A CHARACTER 
DEBE= 1090 AS.CHKCOM ~EQ $DEBE CHECK FOR COMMA 
DEC9- 1100 AS.SYNERR ~EQ $DEC9 SYNTAX ERROR 
E452= 1110 AS.GETSPA EQ $E452 
E5E2=- ay AS .MOVSTR ~EQ $E5E2 
i149 : MONITOR SUBROUTINES 
OG 1160 MON .RDKEY ~EQ $FDO 
FC66—- ko MON .LF -EQ $FC6 
ae ad DP SUBROUTINES PRINTED ELSEWHERE 
FF- 1210 DP.NEXT.CMD ~EQ $FFFF 
FFFF- 1220 DP. EVALUATE ~EQ $FFFF 
FFFF- 1230 MOVE.DAC.YA ~EQ $FFFF 
FFFF- 1240 DP.VTAB -EQ $FFFF 
FFFF- 1250 DP.INT eEQ $FFFF 
FFFF=- 1260 DP.FALSE -EQ $FFFF 
FFFF- 1270 MOVE.DAC.TEMP1 -EQ $FFFF 
FFFF- 1280 MOVE. TEMP1.DAC -EQ $FFFF 
FFFF= 1290 PRINT.INPUT -EQ $FFFF 
FFFF- 1300 FIN -EQ $FFFF 
FFFF- 1310 GET. A.VAR -EQ $FFFF 
FFFF- 1330 CHECK .DP.VAR ~EQ $FFFF 
FFFF- 1 Be MOVE. YA.DAC -EQ $FFFF 
FFFF- 1340 PRUS.CLEAR -EQ $FFFF 
FFFF- 1350 PRUS .NEXT oEQ $FFFF 
FFFF=- 1380 AC CUMULATE.DIGIT -EQ $FFFF 
FFFF- 1 fo PRT. 1 ~EQ $FFFF 
FFFF- 1390 PRINT. STR. 1 -EQ $FFFF 
1400 # PAGE ZERO USAGE 
1410 tenn eee ee eee we eeocoen= 
11- 1420 AS.VALTYP EQ $11 
21- et MON .WNDWIDTH .EQ $21 
24- 1440 MON.CH -EQ $24 
25- tees MON. ~EQ $25 
Ti- 1460 AS.FRESPA -EQ $71,72 
Bie 4 AS .CHRGET EQ 
BT- 1480 AS.CHRGOT EQ BT 
Bo- 1490 TXTPTR ~EQ $B8,B9 
F9- 1500 Pe -EQ $F 
FD=- pa P4 EQ $FD GP POINTER 
0200- 1250 WBUF -EQ $0200 
ere : WORK AREAS FOR DPFP 
0800- Lat ECF LG -BS 1 
0801- 1580 DAC. EXPONENT -BS 1 
0803- 1600 IBUF -BS 256 
0903- 1610 STACK. PNTR -BS 1 
0904- 1620 STACK -BS 12%10 
097D— 1640 B BS 1 
= BS 
O9TE- 1690 OLD.W -BS 1 
097F- 1660 OLD.D -BS 1 
0930—- 1670 DGTCNT ~BS 1 
0383- 1 O INPUT.TYPE -BS 1 
0982- 1690 FOUND.NUM -BS 1 
0983- 1700 FOUND.STR -BS 1 
09 84- 1710 FOUND. LEN -BS 1 
0985- 1720 FOUND. CHAR -BS 1 
0986- 1730 FILL.CHAR -BS 1 
0987- 1740 ZERO.CHAR BS 1 
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09 88- FLD. FLAG -BS 1 
0989- FLD. START -BS 1 
O93A- TEMP -BS 2 
09 8C- RESULT -BS 2 
09 8E- DEFAULT. FLAG -BS 1 
09 8F- LEN -BS 1 
0990- 4C C9 DE DP.SYN3 JMP AS.SYNERR 


DP. INPUT 


0993- 20 B1 00 JSR AS.CHRGET 


WD | OO OIA EW N22 OW O~IOSNG 
wfelelelefalolejolololeloelololelolelolelolololo 


W101. 92190 10 0900 60 09 C000 Co COG OO J~J ~J—J J 


0996- FO F8 BEQ DP. SYN3 .»eCOLON OR EOL 
#--- INPUT USING See coe Soa 
0998- C9 2h #'$! INPUT USING PICTURE? 
095A- DO 05 ENE NO 
099c- AQ 00 LDA 70 >i YES, SIGNAL "INPUT" AND JOIN 
099R- 4C FF FF JMP PRINT. INPUT "PRINT $" 
#...INPUT AN EXPRESSION---------- 

O9A1- 8D 81 09 1 STA INPUT. TYPE ="#" IF EXP, ELSE <>™g" 
O9AN- C9 23 CMP #'#! INPUT AN EXPRESSION? 
O9A6- DO 03 5 BNE .2 N 
O9A8- 20 BI 00 196 JSR AS.CHRGET ...YES, GET NEXT CHAR 
O$AB- A2 BF i 2 LDX #"28 PROMPT CHAR’FOR NO QUOTE 
O9AD- C9 22 CMP #'®! QUOTE 
O9AF- DO 1C 1990 BNE .6 pee SIMPLE INPUT 
O9B1- AO 00 = 2000 LDY #0 .. YES, PRINT IT NOW 
09B3- C8 2010 .3 INY 
O9BK- B1 BB 2020 LDA (TXTPTR),Y | NEXT QUOTED CHARACTER 
O9B6- FO D8 2030 BEQ DP. SYN3 .»NO CLOSING QUOTE 
O9B8- C9 22 ~=— 2080 CMP gt CLOSING QUOTE YET? 
O9BC- 20 5C DB 2060 JSR AS.COUT ;..NO, PRINT CHARACTER 
09C1- 20 98 D9 2080 .4 JSR AS.ADDON ADD (Y) TO TXTPTR 
08C4~ 20 B1 00 2090 °5 JSR AS.CHRGET SCAN NEXT CHAR 
09C7- C9 3B. —s_- 2100 CMP #';! ALLOW OPTIONAL SEMICOLON 
09C9- FO F9 2110 BEQ .5 ..«KEEP LOOKING TILL NOT ';' 
O9CB- A2 80 =_- 2120 LDX #380 NULL PROMPT CHARACTER 

2130 #.--READ A LINE OF TEXT---------- 
O9CD- 20 2E D5 2140 .6 JSR AS.INLIN "2° OR NULL PROMPT 
O9D0- AD 00 02 2150 LDA WBUF CHECK FOR EMPTY LINE 
0 D3- FO 4 2160 BEQ .41 .. EMPTY LI 
09D5- C9 0 2170 CMP #$03 CTRL-C? 
O9D7- DO 0 2180 BNE . 
09D9- 4C 63 DB 2190 JMP AS.BREAK ABORT INPUT 

2200 #---PARSE THE INPUT LINE--------- 
O9DC- AS BB s-_—« 2210.7 LDA TXTPTR SAVE TXTPTR, WHICH POINTS 
O9DE- 4 2220 PHA AT THE PROGRAM 
O9DF- A5 BO = 2230 LDA TXTPTR+1 
O9E1- 48 22h0 PHA 
O9E2- 86 BB 2250 STX TXTPTR MAKE TXTPTR POINT AT INPUT BUFFER 
OOE4- 84 BO 2260 STY TXTPTR+1 
O9E6- 20 Bi 00 2270 JSR AS.CHRGET GET FIRST CHAR FROM LINE 
O9E9- AC 81 09 2280 LDY INPUT.TYPE | SEE IF SIMPLE OR EXPRESSIONS 
O9BC- CO 23” 2290 CPY #'#! 
O9EE- DO 1 2300 BNE .8 SIMPLE NUMERIC INPUT 
O9FO- 20 59 D5 2310 JSR AS.PARSE EXPRESSION INPUT, SO PARSE 
09F3- 49 F 2320 LDA #WBUF-1 POINT AT INPUT BUFFER AGAIN 
OOF5- 85 B 2330 STA TXTPTR SO EVALUATE CAN PROCESS THE 
O9F7- AQ 01 2340 LDA /WBUF-1 PARSED LINE 
O9F9- 85 BO 2350 STA TXTPTR+1 
O9FB- 20 B1 00 2360 JSR AS.CHRGET SCAN FIRST CHAR 
O$FE- 20 FF FF 2370 JSR DP.EVALUATE EVALUATE THE EXPRESSION 
OAO1- 4C 07 OA 2380 JMP .9 
OAON= 20 FF FF 2390 .8 JSR FIN SIMPLE NUMERIC INPUT 
OA0T- 68 2400 .9 PLA RESTORE TXTPTR TO PROGRAM 
OA08- 85 BO 2410 STA TXTPTR+1 
OAOA- 6 2420 PLA 
OAOB- 85 BB = 2430 STA TXTPTR 
OAOD- 20 B7 00 2440 .10 JSR AS.CHRGOT GET CURRENT PROGRAM CHAR 
OA10- 20 FF FF 2450 JSR GET.A.VAR GET INPUT VARIABLE 
0A13- 20 FF FF 2460 JSR CHECK.DP.VAR MUST BE DP18 VARIABLE 
OA10- 20 FF FF 2470 JSR MOVE.DAC.YA STORE INPUT VALUE 
OA19- 4C FF FF 2480 JMP DP.NEXT.CMD  ...FINISHED? 
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FONT DOWNLOADER & EDITOR ($39.00) 


Turn your printer into a custom typesetter. Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and control codes to printer. Switch back and 
forth easily between standard and custom fonts. All special printer functions (like expanded, compressed etc.) 
apply to custom fonts. Full HIRES screen editor lets you create your own characters and special graphics 
symbols. Compatible with many parallel printer |/F cards. User driver option provided. For Apple Ii, Ii+, //e. 
Specify printer: Apple Dot Matrix, C.ltoh 8510A (Prowriter), Epson FX 80/100, or OkiData 92/93. 


NEW ! ! ! The Font Downloader & Editor for the Apple Imagewriter Printer. For use with 
Apple Il, il+, //e (with SuperSerial card) and the new Apple //c (with builtin serial interface). 


NEW !!! FONT LIBRARY DISKETTE #1 ($19.00) contains lots of user-contributed fonts for all 
printers supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e - AN INTELLIGENT DISASSEMBLER ($30.00) 

Investigate the inner workings of machine language programs. DISASM converts machine code into meaningful, 
symbolic source. Creates a standard text file compatible with S-C, LISA, ToolKit and other assemblers. Handles 
data tables, displaced object code & even lets you substitute your own meaningful labels. (100 commonly used 
Monitor and Pg Zero names included.) An address-based triple cross reference table is provided to screen or 
printer. DISASM is an invaluable machine language learning sid to both novice & expert alike. Don Lancaster 
says DISASM is “absolutely essential” in his new ASSEMBLY COOKBOOK. For entire Apple Il family including the 
new Apple //c (with all the new opcodes). SOURCE CODE available for an additional $30.00 


S-C Assembler (Ver 4.0 only) SUPPORT UTILITY PACKAGE ($30.00) 

» SC XREF - Generates a GLOBAL LABEL Cross Reference Table for complete documentation of source listings. 
* SC.GSR - Global Search & Replace eliminates teadious manual renaming of labels. Search all/part of source. 
* SC.TAB - Tabulates source files into neat, readable form. SOURCE CODE available for an additional $30.00 


The ‘PERFORMER’ CARD ($39.00) 

Plugs into any slot tc convert s ‘dumb’ centronics-type printer I/F card into a ‘smart’ one. Command menu 
eliminates need to remember complicated ESC codes. Features include perforation skip, auto page numbering 
with date & title. Includes large HIRES graphics & text screen dumps. Specify printer: MX-80 with 
Graftrax-80, MX-100, MX-80/100 with Graftraxplus, NEC 6092A, C.Itoh 6510 (Prowriter), OkiData 82A/63A 
with Okigraph & OkiData 92/93. SOURCE CODE: $30.00 


FIRMWARE FOR APPLE-CAT: The ‘MIRROR’ ROM ($25.00) 

Communications ROM piugs directly into Novation's Apple-Cat Modem card. Basic modes: Dumb Terminal, 
Remote Console & Programmable Modem. Features include: selectable pulse or tone dialing, true dialtone 
detection, audible ring detect, ring-back, printer buffer, 80 col card & shift key mod support. Uses superset of 
Apple's Comm card and Micromodem It commands. SOURCE CODE: $50.00 


RAM/ROM DEVELOPMENT BOARD ($30.00) 
Plugs into any Apple slot. Holds one user-supplied 2Kx8 memory chip (6116 type RAM for program development 
or 2716 EPROM to keep your favorite routines on-line). Maps into $Cn00-CnFF and $C800-CFFF. 


NEW !!! C-PRINT For The APPLE //c ($99.00) 

Connect standard parallel printers to an Apple //c. C-PRINT is a hardware accessary that plugs into the 
standard Apple //c printer serial port. The other end plugs into any printer having a standard 36 pin 
centronics-type parallel connector. Just plug in and print! High speed data transfer at 9600 Baud. No need to 
reconfigure serial port or load software drivers for text printing. 


Avoid a $3.00 postage/handling charge by enclosing full payment with order. (Mastercard & VISA excluded) 
RAK-WARE 41 Ralph Road W. Orange NJ 07052 (201) 325-1885 


SECEEEEEEEEEEEEEEEEESEEEEEEEEEEEEEEESE 
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2490 #---EMPTY INPUT LINE------------- 
OA1C= 20 FF FF 2500 .11 JSR DP.FALSE RETURN VALUE = 0 
OAIF=- 4C OD OA 2510 JMP .10 
2500! Waleee coo ee ete eee sees 
aah INPUT. NUM 
OA22=- AX 00 25 A #0 TERMINATE STRING IN BUFFERS 
OA2Z4- 9D 03 2550 STA IBUF,X 
OA2T- 9D 00 02 2560 STA WBUF,X 
OA2A= BD FF 01 2570 .1 LDA WBUF=-1,X COPY STRING TO IBUF 
OA2D=- 9D 02 08 2580 STA IBUF=-1,X 
OA30- CA 2590 DEX 
vCem DO 4 2600 oi 
0A33- 09 2610 LDA FILL.CHAR 
OA30— 8D 8A 09 2620 STA TEMP 
OA39=- 20 EC OB 2630 JSR STACK.IT 
OA3C=- 20 BE DE 2640 JSR AS.CHKCOM MUST HAVE COMMA 
OA3F- 20 FF FF 2650 JSR GET.A. 
OA42=- 20 FF FF 2660 JSR CHECK.DP.VAR 
OA45=- 8D 8C 09 2670 STA RESULT SAVE ADR OF VARIABLE 
OAX8- 8C 8D 09 26 0 STY RESULT+1 
OANB- 20 FF FF 2690 JSR es YA.DAC MOVE DEFAULT INTO DAC 
QAUE- ap 76 00 2700 LDA W 
OA51- 8D TE 09 2710 STA OLD.W 
OApd- §? 1 2720 LDA 
OA56— E 09 2730 STA DEFAULT.FLAG 
OA59=- AD 01 08 2740 LDA DAC. ie IS DAC 0? 
OA5C- DO 03 2750 BNE INP.X1 
- f OB 3 Q TNE E, ay Bo - ZERO. DAC DEFAULT IS O OR CTRL-X 
HES BAB gg SAAR PM PE Bo gic 
- 0 2 STA DGTCNT 
OA69- 8D 00 08 2800 STA DECFLG 
OA6C- AD 7D 09 2810 LDA D 
OA6F- 8D 7F 09 2820 STA OLD.D 
OAT2= AQ 5F 28 30 LDA #$5F UNDERLINE 
OAT4= 8D 86 09 2840 STA FILL.C 
2850 INP. NEXT.ZERO.CHAR 
OAT7T=- 8D 87 09 aN - STA ZERO.CHAR 
2880 INP. NEXT 
OATA= 20 72 OB 2890 JSR INP.PRINT.NUM PRINT THE NUMBER 
OA7D=- 20 FF FF 2900 JSR MOVE. TEMP1.DAC 
OASO= 20 OC FD 2910 JSR MON .RDKEY 
OA83- 29 7F 20 AND # (ta 
OA85- C9 OD 0 CMP #30D RETURN? 
OA89- AE 8E 09 2950 LDX DEFAULT. FLAG 
OASC=- FO 0 2960 BEQ .1 NO DEFAULT 
OASE=- 20 3 OB 2 be JSR INP.ZERO.DAC IGNORE DEFAULT 
OA91= C9 2 CMP #8 BACKSPACE? 
OA93—- FO E5 29 90 BEQ INP.NEXT YES, IGNORE 
000 #---DIGIT----—--------- 
OA95—- C9 30 010. CMP #'0 SEE IF NUMBER 
OA9T- 90 2C 020 BCC . NO 
OA99= C9 3A 3030 CMP #'9+1 
OAQB- BO 28 040 BCS .4 NO 
OA9D- 20 FF FF 3050 JSR ACCUMULATE .DIGIT 
OAAO=- 4C 7A OA 3060 JMP INP.NEXT 
307° $.--CARRIAGE RETURN-------------- 
OAA3=- AD 80 09 3080 .2 LDA DGTCNT IS NUMBER 0? 
OAAG=- OD BE 09 3090 ORA DEFAULT.FLAG 
OAA9=- DO 03 3100 BNE .3 NO 
OAAB- 8D 01 08 3110 STA DAC.EXPONENT YES,SO ZERO THE EXPONENT 
OAAE= AD 8C 0 120 .3 LDA RESULT | GET ADR OF VAR 
OAB1= AC 8D 0 Fb LDY RESULT+1 
OAB4=- 20 FF FF 3140 JSR MOVE.DAC.YA PUT IT IN VAR 
OAB7=- AD 8A 09 3150 LDA TEMP RESTORE ORIGINAL FILL CHAR 
OABA~ 8D 86 09 3160 STA FILL.CHAR 
OABD- AJ 30 i LDA #'0 
OABF- 8D 57 09 3180 STA ZERO.CHAR 
OAC2= 4C 72 OB 3190 JMP INP.PRINT.NUM PRINT THE NUMBER 
3599 sd AND RETURN 
310 @---DECIMAL POINT---------------- 
OAC5= C9 2E «=. 3220 .H#s—=“<«S MP A=". DEC POINT? 
OAC7- DO 15 3230 BNE .5 » eNO 
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240 # SEC "CMP" LEFT CARRY SET 


OAC9=- 6E 00 08 250 ROR DECFLG FOUND DEC PT 
OACC=- 2C 00 08 3260 BIT DECFLG 
OACF- 70 A 3270 BVS INP.NEXT TWO DEC PTS. 
OADI—= AQ 4 280 LDA #$40 
OAD3- 1 290 CLC 
OADK- 6D 80 09 3300 ADC DGTCNT 
OAD? 8D 01 0 3310 STA DAC . EXPONENT 
OADCe Fb 3g 3330 BEQ INP.NEXT.ZERO.CHAR ALWAYS 
O @sssINDS SIGNs=<sessceceeecoscce 

ee ae on iad 

3 0 @ SEC - 'CMP' LEFT CARRY SET 
OAE2=- 6E 02 08 3380 ROR DAC.SIGN MAKE DAC NEGATIVE 

00 WecePlUS SIGNe=<c--s25-2 ooo cece 

OAE7- C9 2B 410 .6 CMP #'+ PLUS? 
OAEB- 8D 02 08 3430 STA DAC.SIGN PUT POSITIVE VALUE IN SIGN 
OAEE- FO 8A i133 0 cTREEG_INP-NEXT_.. . ALWAYS 
ae ao )060UlU ee eee 
SHS AB TE Gt fl 
OAFA- 4C 5E OA 3500 JMP INP.X 

9510. eee CThe Cs oe ee ceeeeeceeecceus 
OAFD- C9 0 3920 .8 CMP #$3 CTRL-C? 
OAFF- DO 03 530 BNE . -..NO, TRY BACKSPACE 
OBO1- 4c 63 D8 39 0 JMP AS.BREAK 

550 #---BACK SPACE-----------~--~----=- 
OBO4- C9 08 560 .9 CMP #$08 BACKSPACE? 
OB06- DO 6 570 BNE .17 .».NO, TAKE PATH TO INP.NEXT 
a Re ha 
OBOD- Ap 01 08 i039 LDA DAC. EXPONENT 
OB11- £9 40 620 SBC #$40 
0B13- CD 80 09 3630 CMP DGTCNT 
OB16- FO 39 43 . BEQ .15 REMOVE DEC PT ONLY 
OB18- AD 01 08 20 .10 LDA DAC.EXPONENT 
OB1B- 48 3670 PHA SAVE EXPONENT 
OBIE. 4B O° 09 3668 ce 
OB20- 69 3 3100 ADC #$3F 
0B22- 8D 61 08 3710 STA DAC. EXPONENT 
OB25- 20 FF F 3 20 JSR DP.INT CHOP OFF LAST DIGIT 
OB2B- AD 01 08 3/30 LDA DAC. EXPONENT 
OB2B- F0 1E 3 40 . BEQ 14 THE NUMBER IS 0, SO RESET EVERYTHING 
OB2E- 8D 01 08 180 ° STA DAC. EXPONENT 
oe a ei 
Enka we 
OBIC- CE BO 09 3810.12 bec DaTewT 
OB41- CE 01 08 3830 DEC DAC. EXPONENT 
OB4YN- AD 00 08 38 0.13 LDA DECFLG 
OB47~- 10 1E 50 BPL .1 DELETE BY SHIFT 
OBY9- 30 24 3800 . BMI .17 ALWAYS 
OB4B- AD 00 08 38 O .14 LDA DECFLG 
a ne 
OB5 1 AQ 3F 3910 15 LDA #$3F 
OBS ED 7F 09 33 0 SBC OLD.D 
OB57- 6D 80 09 3940 ADC DGTCNT 
OBDA- 8D 01 0 3990 STA DAC . EXPONENT 
Oper- 8B 00 08 970 STA DECFLG 
OB62- AQ 5F 3980 LDA #$5F 
OB64~ 4C 77 OA 990 : JMP INP. NEXT.ZERO.CHAR 
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OB67- AD 80 09 4010 .16 peo ait aa 


OB6A- FO 03 4020 17 
OB6C- CE 07 08 4030 DEC DAC. EXPONENT 
OB6F- 4C 7A OA HOuO £17 JMP INP.NEXT 
4060 INP.PRINT.NUM 
OB72- A2 FF  —4070 LDX #-1 COPY IBUF TO WBUF 
OBy - E8 4080 .1 INX 
OB a BD 03 08 4090 LDA IBUF,X 
OB78- 9D 00 02 4100 STA WBUF,X 
OB7B- DO F7 4110 BNE 
OB7D- 20 20 OD 4120 JSR RESTORE. HV. FROM. STACK 
OB80- AD 7E 09 4130 LDA OLD.W 
OB83- 8D 7C 09 4140 STA W 
OB86- AD 7F 09 4150 LDA OLD.D 
OB8Q- 8D 7D 9 4160 STA D 
OBBC- 20 FF F A170 JSR MOVE.DAC.TEMP1 
OB8F- AD 00 08 4180 LDA DECFLG 
OB92- 48 4190 PHA 
OB93- 20 FF FF 4200 JSR PRT.NUM. 1 
OB96- 68 4210 PLA 
OB97- 8D 00 08 4220 STA DECFLG 
OB9A~ 60 N2 i RTS 
4350 INP.ZERO.DAC 
OB9B- 48 4260 PHA 
OBOC- 20 FF FF 4270 JSR DP.FALSE PUT 0 IN DAC 
OBOF- AQ 40 4280 LDA #$40 
OBA1- 3 4290 SE 
OBA2- ED 7D 09 4300 SBC D CALCULATE EXPONENT 
OBA5- 8D 01 08 4310 STA DAC. EXPONENT 
OBAB- A9 9 4320 LDA 
OBAA- 8D 8E 09 4 30 STA DEFAULT.FLAG 
OBAD- 68 4340 PLA 
OBAE- 60 430 : RTS 
4370 LAST .FLD 
OBAF- AC 03 09 4380 LDY STACK. PNTR 
OBB2- 88 4390 DEY 
OBB3- 88 400 DEY 
OBBY- 4410 DEY 
OBB5- 88 4420 DEY 
OBB6- 88 4430 DEY 
OBB7- D0 01 HAY BNE .1 
OBB9- 60 4450 RTS FIRST FIELD 
OBBA- 68 4u60 .1 PLA DISCARD JSR LAST.FLD 
OBBCe of 14 bo PLA DISCARD JSR INPUT. NUM 
OBBD- 4 4490 PLA A 
OBBE- 68 4500 PLA DISCARD Y-REG 
OBBF- 68 4510 PLA DISCARD JSR PRT.NUM. IF. NEEDED 
0- 4520 PLA si 
fe: 4 DISCARD JSR LOOKUP 
a i a BE 
OBCH- B 04 09 4560 LDA STACK,Y 
OBC7- B9 4570 STA TXTPTR+1 
OBC9- 8 4580 DEY 
OBCA- B9 O4 09 4590 LDA STACK,Y 
OBCD- 88 B8 ~ 4600 STA TXTPTR 
OBCF- 4610 DEY 
OBDO- B9 04 09 4620 LDA STACK,Y 
OBD3- 4 4630 PHA SAVE INDEX INTO PICTURE 
OBDE- 88 4640 DEY 
OBD5- BO 04 09 4650 LDA STACK, Y 
OBDB- 20 FF FF 4660 JSR DP.VTAB 
OBDB- 88 4670 DEY 
OBDC~ B9 04 09 46 0 LDA STACK,Y 
OBDF- 24 4690 STA MON.CH 
OBE1- 8C 03 09 4700 STY STACK. PNTR 
OBE4- 68 4710 PLA RESTORE INDEX INTO PICTURE 
OBES A8 4720 TAY 
OBE 20 FF FF 4730 JSR PRUS.CLEAR 
OBE9- 4c FF FF 47 Ho . JMP PRUS.NEXT 
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4760 STACK.IT 
OBEC- AC 03 09 4 70 LDY STACK.PNTR 
OBEF- A5 2 4780 LDA MON.CH SAVE WHERE THE FIELD IS 
OBF1- 99 04 09 4790 STA STACK,Y 
OBF4- C 4800 INY 
OBF5- A5 25 4810 LDA MON.CV 
OBF7- 99 04 09 4820 STA STACK,Y 
OBFA- C 4830 INY 
OBFB= CE § 0 480 DEC FLD. START 
OBFE- AD 09 4850 LDA FLD.START 
0C01=- 99 04 09 4860 STA STACK, Y 
oco4- C 4870 INY 
OCO5=- A5 B8 4880 LDA TXTPTR 
0C07- 93 04 09 4890 STA STACK,Y SAVE TXTPTR 
OCOA- C 4900 INY 
OCOB- A5 B9 4910 LDA TXTPTR+1 
OCcOD- 98 04 09 4920 STA STACK,Y 
0C10- \ 30 INY 
0C11=- 8C 03 09 490 STY STACK. PNTR 
0C14= 60 4950 RTS 
4960 os See Sorenescee er ceeeesauc 
4 70 INPUT. STR 
0C15= 20 EC OB 4980 JSR STACK.I1T 
0C18- 20 BE DE 4990 JSR AS.CHKCOM MUST HAVE COMMA 
0C1B- 20 FF FF 5000 JSR GET.A.VAR GET ADR OF VAR 
OC1E- A6 11 5010 LDX AS.VALTYP STR OR NUM 
0C20- 30 03 5020 BMI . OK 
0C22- Ic C9 DE 5030 JMP AS.SYNERR MUST BE STRING 
0C25- 85 FD 5040 .1 STA P1 
0C27- 84 FE 5050 STY P1+1 
0C29= AO 00 5060 LDY #0 GET STRING 
0C2B- 8C 8E 09 5070 STY DEFAULT.FLAG 
OC2E- te 8 09 5080 STY FLD.FLAG 
0C31- 8c 8F 09 5090 STY LEN 
OC34- Bi FD 5100 LDA (P1),Y LENGTH 
0C36- FO 22 5110 BEQ .3 NULL STRING, SO DO NOTHING 
0C38- 8p 8F 09 2120 STA LEN 
OC3B- C 130 INY 
0C3C- Bi 5140 LDA (P1),Y ADR OF STRING 
OC3E- 85 F9 5150 STA P2 LO ADR 
ocho- c8 5160 INY 
0C41= B1 FD 2170 LDA (P1),Y 
OC43- 85 FA 5180 STA P2+] HI ADR 
OC45= AC 8F 09 5190 LDY LEN GET LENGTH 
OCB 88 E200 DEY 
OC49- B1 F9 5210 .2 LDA (P2),Y 
OCcuB- 99 00 02 5220 STA WBUF,Y 
OCHE- 5230 DEY 
OC4F- DO F8 5240 BNE ,2 
0C51- B1 F9 5250 LDA (P2),Y MOVE LAST BYTE 
0C53- 8D 00 02 5260 STA WBUF 
0c56- C8 5270 INY Y=1 
0C57- 8D BE 09 5280 STA DEFAULT.FLAG YES THERE IS A DEFAULT 


OC5A- AQ 00 5290 .3 LDA #WBUF 
STA P2 


OC5E- AX 02 5310 LDA /WBUF 

OC60- 85 FA 5320 STA P2+1 

0C62- DO 05 2 Be ‘ BNE IS.X1 ALWAYS 
OC64= AI 00 5350 IS.X LDA #0 

0C66- 8D oF 0 2308 STA LEN 

0C69- AD 09 5 ys IS.X1 LDA FOUND.LEN 

OC6C- 48 5330 PHA 

0C6D- 85 09 2320 LDA FOUND. CHAR 

OC70- 48 2 00 PHA 

OC71= 20 20 OD 5410 JSR RESTORE.HV. FROM. STACK 
OC74— AQ 5F 5420 LDA #$5F UNDERLINE 
OC76- 8D 86 09 api STA FILL.CHAR 

OC79=- AD 8F 09 54 LDA LEN 

OC7C=- 20 FF FF 2nee JSR PRINT.STR. 1 

OC7F- 68 54600 PLA 

OC80- 8D 85 09 5470 STA FOUND. CHAR 

0C83- 68 5480 PLA 

nee - 8D 84 09 54 STA FOUND. LEN 

OC87- CD 8F 09 5500 CMP LEN 

OC8A- 90 17 5510 BCC .3 OVERFLOW 
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5520 #---FIND END OF STRING & PUT CURSOR THERE--- 
OC8C- 20 20 OD 5530 JSR RESTORE.HV. FROM. STACK 
OC8F- 18 55 CLC 
OC90- 6D 8F 09 5550 ADC LEN ADD LENGTH OF STRING 
tat C5 21 5560 .1 CMP MON.WNDWIDTH LONGER THAN WINDOW? 
OC95—- 90 OA eehe BCC . 
0C9T- f2 21 5580 SBC MON.WNDWIDTH WRAP AROUND 
0C99- 4 5590 PHA 
OC9A- 20 66 FC 5600 JSR MON.LF §§JUMP DOWN TO NEXT LINE 
OC9D- 6 5610 PLA 
OC9E- 4C 93 OC 5620 


JMP .1 

2 STA MON.CH PUT COLUMN BACK IN CH 
5640 #---INPUT A CHAR NOW------------- 

OCA3- 20 OC FD 2 50 .3 JSR MON - RDKEY 


ND #$ 
eeie #---CARRIAGE RETURN-~-------~------ 
0 CMP #$0D 


OCA8=- C9 OD = 56 RETURN? 
OCAA= D 1 56 90 BNE e eee NO 
OCAC- AD BE 09 5700 LDA DEFAULT.FLAG 
OCAF- DO 1E ~~ 5710 BNE .4 DEFAULT, SO LEAVE IT ALONE 
OCB1- AD 8F 09 5720 LDA LEN GET LENGTH 
OCBH- 20 52 Eh 5730 JSR AS.GETSPA MAKE ROOM FOR STRING 
OCB7- AO 00 .~—-5740 LDY #0 MOVE DATA INTO VARIABLE 
OCB9- 91 FD 5750 STA (P1),Y LENGTH 
OCBB- A5 71 2760 LDA AS.FRESPA 
OCBD- C 0 INY 
OCBE- 91 FD 5780 STA (P1),Y LO ADDRESS 
occO- A5 72 5790 LDA AS.FRESPA+1 
OCC2= C8 5800 INY 
OCC3- 91 FD 5810 STA (P1),Y HI ADDRESS 
occ5- A2 00 =: 55820 LDX #WBUF 
OCC7- AO 02 5830 LDY /WBUF 
OCC9- AD 8F 09 580 LDA LEN 
OCCC- 20 E2 E5 5850 JSR AS.MOVSTR 
OCCF- 20 20 OD 5860 .4 JSR RESTORE.HV. FROM, STACK 
OCD2= A9 20 5870 LDA #$20 SPACE 
OCD4- 8D 86 0 58 STA FILL. CHAR 
OCD7- AD 8F 09 5890 LDA L 
OCDA- 4C FF FF 900 : JMP PRINT.STR.1 PRINT IT ONE MORE TIME 
OCDD- AE 8E 09 2920 5 LDX DEFAULT. FLAG 
OCEO- FO OF ~ 5& 30 BEQ . ». eNO DEFAULT 
OCE2- A200 59h0 LDX #0 
OCEY~ 8E 8E 09 5950 STX DEFAULT.FLAG GET RID OF DEFAULT 
OCE7- 8E 8F 09 5960 STX LEN NULL STRING 
OCEA- C9 0 5970 CMP #8 BACKSPACE AND DEFAULT? 
OCEC- DO 18 59 BNE .8 
OCEE- 4C 69 0C 5990 JMP IS.X1 

6000 #--- BACK SPACE peseesoeces oeeseces 
OCF1- C9 08 6010 .6 CMP # BACK SPACE? 
OCF3=- D0 11 +6020 BNE . 
OCF5- AD 8F 09 6030 LDA LEN 
OCF8= DO 06 ~~ 6040 BNE .7 
OCFA- 20 AF OB 6050 JSR LAST.FLD BACKUP A FIELD 
OCFD- 4C 69 0C 6060 JMP IS.X1 
OD00- CE 8F 09 6070 7 DEC LEN 
OD03- 4C 69 OC 6080 JMP IS.X1 

6090: @s=<CTRL=¥--aoseescccs ou ceccuccs . 
OD06- C9 18 6100.8 CMP #$18 CTRL-X? 
ODO8- DO 0 6110 BNE . 
ODOA- 4c 64 OC 6120 JMP I8.X 

6130 | Oo ee 
ODOD- C9 03.—s_« 6 140.9 CMP #3 CTRL-C? 
ODOF= DO 03 «6 150 BNE .10 ~+ NO 
OD11=- 4c 63 D8 6160 JMP AS.BREAK 

170 #---CHAR FOR STRING-------------. 

OD14= AC 8F 09 6180 .10  LDY LEN NORMAL CHAR, 
OD17- 99 00 02 6190 STA WBUF,Y SAVE IT 
OD1A~ FE SF 09 6200 INC L 
OD1D- 4c 69 0 210 JMP IS.X1 
OD20- AC 03 0 62 0 deans ere 
OD23- BO 88 if 93.0 LDA STACK LUN Y 
OD26- 20 FF FF 6260 JSR DP.VTAB 
OD29- BO FF 08 6270 LDA STACK-5,Y 
OD2C- 85 24 280 STA MON.CH 
OD2E- 88 p580 RTS 
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RAMWORKS' 
800K Apple Works Desk Top, 450K Visicalc, 


1 Meg Solid State Disk 
Double Hi-Res, RGB, Btn Apple Compatible! 


Oe ee we ew 
ee ee a 


‘ 


RAMWORKS"—A card that plugs 
into the Apple Ile auxiliary slot and 
functions EXACTLY like Apple's 
extended 80 column card (in fact. a 
128K RAMWORKS” actually costs 
less than Apple's 64K extended card) 
but with RAMWORKS” you get more 
memory, 80 column text. a 3-year 
warranty and most tmportantly. room 
to grow without using more slots. A 
design so advanced there's a patent 
pending on it. If you have a Ilc or an 
IBM. we suggest you do what every- 
body does. trade it in on a lle. 

RAMWORKS” can be purchased 
in a wide range of sizes and Is user 
upgradeable using either64K RAMS 
or the new 256K RAMS. In fact. 
RAMWORKS” is the only auxiliary 
slot card on the market that will allow 
the new 256K RAMS to be used. If 
you already have an extended 80 
column card. no problem. Just un- 
plug the 64K RAMS and plug them 
into the RAMWORKS” for an addi- 
tional 64K. A RGB option is also 
available, you can order it with your 
RAMWORKS” card or add it on ata 
later date. 

RAMWORKS” saves you time. 
money. slots and hassle. You ll have 
additional memory NOW and in the 
future. 


Ramworks™ 
64K Installed 
128K Installed 
256K Installed 
512K Installed 

1 MEG Installed 
RGB Option 


(May be added later) 
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‘LOW COST SOFTWARE OPTIONS 


Ram Drive Ile 

Ram Drive Ile will give you a high 
speed solid state disk drive. The 
Ram Drive lle software features 
audio-visual access indicators, easy 
setup for turnkey operation. and easy 
menu driven documentation. The 
program can be mcdified and is 
copyable. If you have a 64K RANM- 
WORKS™ Ram Drive Ile will act as 
half a disk drive. If you have a 128K 
or larger RAMWORKS”™ Ram Drive 
ile will act as a full disk drive. Either 
way. your programs will load and 
Save over 20 times faster. Ram Drive 
ile is compatible with APPLESOFT. 
PRO DOS. DOS 3.3. and PASCAL. 
The disk also includes a high speed 
RAMdisk copying program. Ram 
Drive is another disk drive only 20 
times faster. And no whirring. clicking 
and waiting! PRICE $29 


CP/M Ram Drive Ile 

CP/M Ram Drive lle is just like the 
Ram Drive Ile above, only for CP/M. 

CP/M Ram Drive lle runs on any 
Z-80 card that runs standard CP/M 
l.e. Applied Engineering Z-80 Plus or 
Microsoft Soft Card. CP/M Ram Drive 
will dramatically speed up the opera- 
tion of most CP/M software because 
CP/M normally goes to disk fairly 
often. Fast acting software like 
dBase ||. Wordstar and Turbo Pascal 
becomes virtually instantaneous 
when used with CP/M Ram Drive. 

PRICE $29 

VC Ile Expander 


VC Ile expander gives owners of 
Visicalc Ile and Advanced Visicalc 
Ile increased storage. When used 
with VC Ile you'll get 141K work- 
space (128K RAMWORKS"™ or larger 
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required). When used with Advanced 
VC Ile you'll get 131K with a 128K 
RAMWORKS”. 250K with a 256K 
RAMWORKS” and 450K witha 512K 
RAMWORKS" PRICE $29 


Apple Works Expand 


Although Apple Works is com- 
patible with all sizes of RAM- 
WORKS”, Apple Works only “sees” 
its first 64K bank giving you a 55K 
desktop. Our Apple Works expand 
program will make a modification to 
Apple Works that simply lets it know 
you've got more memory, giving you 
101K work space. PRICE $29 


Super Apple Works Expand 


This souped-up version of Apple 
Works expand doesn't stop ata 101K 
desk top. in fact Super Apple Works 
Expand figures out how much 
memory your RAMWORKS”™ has to 
give Apple Works the following desk- 
top sizes: 


is APPLEWORKS 
RAMWORKS DESKTOP 


PRICE $39 
AppleWorks can also be putin the 
RAMWORKS"” card to eliminate disk 
access, thereby dramatically speed- 
ing up the program. 


APPLIED ENGINEERING 


Send Check or Money Order to 

Applied Engineering 

PO Box 798 Carrollton TX 75006 

Call (214) 492-2027 

Bum to 11 pm 7 days a week MasterCard Visa & 
COD Welcome No extra charge for creat canis 
Texas residents add 5°-% sales tax Add $1000 Hf out 
side USA 
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Questions and AnSwers 


I have just finished installing Version 2.0 of your assembler, 
and I have a few questions. 


a. First, how is the line length of the escape-L changed? The 
short line looks ridiculous on an 80-column screen. I would 
also like to change the first character from “**" to "3", 


b. How can I get the assembler to initialize things with DOS's 
MON CI modes set? 


c. In working with big programs, it is easy to exceed line 
number 9999, It happens all the time. As new lines get added, 
the formatting of lines around 9999 goes haywire, as the 
spacing is done according to the line number at the time of 
entry. Thus when a line number changes from 4 to 5 digits or 
vice versa due to renumbering the opcode and operand columns no 
longer line up properly. What can be done about the erratic 
column alignment ? 


d. I noticed that the symbol table generated by an assembly 
takes more memory with version 2.0 than it did with 1.1. Why? 


e. There appear to be two errors in the sample program 
S.INLINE on the Macro 2.0 disk. The comment on how to uSe it 
shows a comma between the &INPUT and the string variable, when 
the program in fact requires that there be NO comma. Then, the 
first line of the main routine does a CMP, which should be an 
LDA. With these corrections, the program is great. &INPUT 
will accept input from keyboard or disk, and reads the complete 
record including commas, quotes, and colons. This I find 
rather useful. 


Mike Lawrie, South Africa 


a. The routine which generates the star~dash line starts at 
SDB21, with the following: 


TXA 

BEQ ... 

LDA #SAA change to $BB for ";" 
JSR ..- 

LDA SDO1E ("-" CHAR) 

CPX #$26 increase as you like 


For example, I changed mine just now like this: 


$C083 C083 DB25:BB N DB2D:46 


b. Whatever selections you have turned on with the MON 
command are turned off by the DOS "INT" or “FP" commands. I 
guess if you want the MONCI modes all the time you could add 
code to the assembler to set the proper bits inside DOS. 

The flags are in SAASE: C=$40, I=$20, O=$10. Store $60 
into SAASE to effect MONCI. 
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c. I agree with you that it is annoying the way the columns 
stagger when the line numbers are near 9999. There are 
several possible solutions. One solution, is to start line 
numbers at 10000. You can do this by changing the code at 


$D32B: 
LDA #990 change to #9990 
STA @eso 
LDA /990 change to /9990 


A better way is to make a the line numbers always print with 
five digits. To effect this, change the code at SDE63: 


LDX #3 change to LDX #4 
$C083 C083 DE64:4 


d. The symbol table does indeed take more space in version 
2.0 than it did in previous versions. This is due to the 
fact that symbols can have values up to 32-bits long. Every 
symbol has two more bytes in the table now. 


e. Right on both counts. Disks with serial numbers 1186 
and larger have the corrections you give. 


Is there any way of loading a program from the monitor (without 
going back to Basic) or reload DOS or reboot without losing 
what is in memory? 


Munson Compton, Shreveport, LA 


If you entered the monitor via CALL-15l from Basic, or MNTR 
or MGO-151 from the S-C Macro Assembler, DOS is still alive 
and will still respond to commands. You can BLOAD or LOAD a 
program, but of course using LOAD will flip you into either 
Applesoft, Integer BASIC, or the Macro Assembler depending 
on file type and what languages are around. If you want to 
stay in the monitor after the LOAD file has been read into 
memory, you could temporarily patch the DOS LOAD code which 
starts at $A413. The book “Beneath Apple DOS" would be 
helpful here. It looks to me like you could so subvert type 
A files by patching the JMP ($9D60) at SA44D to RTS (by 
putting 60 at $A44D). Type I files might be tricked by 
putting an RTS (60) at SA5SAF. I don't know what other 
ramifications these patches might have. Beware!!! 


You can reboot a slave disk without losing the actual text 
of an assembler source file from memory. However, the 
pointer which tells the assembler where the program starts 
will be reset. Before rebooting, record the value stored in 
SCA and SCB, and after getting back into the assembler 
restore those two bytes. Of course, if the assembler is in 
the language card rebooting DOS marks it as not being there. 
From the monitor you can put it all back by typing: 
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]CALL-151 

*C081 C081 E£000:20 

*INT 

:$CA:...(whatever values you recorded earlier) 
:LIST (Voila!) 


I have the Apple ToolKit and the Big Mac assemblers, and use 
them primarily to key in source files from articles such as 
yours. I've figured out how to transpose most of the different 
labels and opcodes, but would like some enlightenment on the 
use of the .l, .2, .3 etc. labels that are repeated in the 
code. I assume this is a capability of your assembler that 
others don't have. 


David Roberson 


For help in converting our listings to other assemblers and 
vice versa, you should refer to my “Directory of Assembler 
Directives" article in the September 1982 AAL. You are 
correct in assuming that most other assemblers do not have 
the kind of local labels as the S-C assemblers, but some do. 
These numeric labels are one or two digits after a period, 
and are very convenient for branch points within a sub- 
routine. They are defined below a normal label, and are 
only accessible within that area. The local labels are 
defined internally relative to the preceding normal label, 
and must be within a 255-byte range after the normal label. 
Once a new normal label is defined, a whole new set of local 
labels is available. The use of local labels simplifies 
programming, because there is no need to think up dozens of 
unique names like LOOP1, LOP2, LUPA, LUPB, and so on. Local 
labels also encourage writing good modular code, with only 
one entry point per module, since the local labels are not 
accessible outside the routine in which they are defined. 


The LISA assembler uses a different type of numeric label, 
which I call a near-by label. These are redefinable at 
will, and when they are referenced a pointer must be 
included to tell the assembler which direction to search for 
the definition. You can refer to the nearest definition in 
either a forward or backward direction. I get thoroughly 
confused trying to read and/or modify programs using these. 


Patches Available for Time/Date in Titles..........eR.e Me. YOSt 


I have implemented a patch to include a Thunderclock (or 
compatible) time string in the .TItle for version 2.0 of the 
S-C Macro Assembler. The patch program automatically loads the 
assembler and my favorite I/O driver, installs the time patch 
and several others I like, and writes the assembler back on the 
disk. The new file includes both assembler and driver, with 
the patches, as well as a loader which allows the whole thing 
to be executed with a single BRUN. 


I will gladly send a listing of the source code to any Assembly 


Line reader who is interested. Just send a stamped self- 
addressed envelope to R.M.Yost, 7436 Pointe, Canton, MI 48187. 
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Write Guard Disk Modification Kit 


Mark IV Designs (Mark Hansen) has come up with a neat way to 
Override the write protect switch in a disk drive. Sometimes 
you want to write on the back side of a disk, in spite of all 
good breeding. Yet it is a nuisance to have to cut a notch in 
the other edge of the disk. We finally bought a hole punch, 
but it is still a nuisance. Other times you want to write 
protect a disk, but not put one of those little sticky things 
over the existing notch. What to do? 


Instructions for adding an external toggle switch in series or 
in parallel with the internal sensor are easy to come by, but 
who wants to drill holes and solder? The Write Guard kit from 
Mark IV Desings accomplishes all you could wish for without any 
drilling, cutting, or soldering. 


You get a small (1x2x3 inches) box with three-position toggle 
Switch and LED. A short flat cable runs out the back, and you 
plug that into a socket inside the disk drive (after removing 
the 74125 from that socket). A piece of velcro attaches the 
plastic box to either side of your drive. The switch selects 
normal, always protected, or always unprotected. MThe LED 
lights whenever the disk is not protected. One chip on the 
disk controller card also is replaced with a chip from the kit. 


If this kit sounds like something you have been waiting for, 
you can order one from us at $40. 


Now you can monitor and control the world (or at least your part of it) with a little help from 


APPLIED ENGINEERING 


12 BIT, 16 CHANNEL, 
PROGRAMMABLE GAIN A/D 
All new 1984 desien incorporates the 
latest in state-of-an LC technologies. 
Complete 12 bit A/D convener withan 
accuracy Of 0.02%! 

16 single ended Channels (single ended 
means that your signals are measured 
against the Apple’s GND.) of 8 
differential channels, Most all the 
signals you will measure are single 
ended. 

9 software programmable full scale 
ranges. any of the 16 channels can have 
any range at any time. Under program 
control, you can select any of the 
following ranges: + 10 volts, +5V. 
+2.5V, +1.0V, +5O0MV, +250MV, 
+100MV, +S5OMV. or +25MV. 

Very fast conversion (25 micro seconds). 
Analog input resistance greater than 
1,000.000 ohms. 

Laser-trimmed scaling resistors. 

Low power consumption through the 
use of CMOS devices. 

The user connector has +12 and -12 
volts on it so you can power your 
sensors. 

Only elementary programming ts 
required to use the A/D. 

The entire system is on one standard 
size plug in card that fits neatly inside 
the Apple. 


@ System includes sample programs on 


disk. PRICE $319 


8 BIT, 8 CHANNEL A/D 
# Channel 
& Bit Resolution 
On Board Memory 
Fast Conversion (078 ms per channel) 


A/D Process Totally Transparent to 
Apple Gooks like memory} 


The APPLIED ENGINEERING A/D 
BOARD is an 8 hit. 8 channel, memory 
buffered, data acquisition system, Ht 
consists of an 8 bit A/D Converter, an 8 
channel multiplexer and 8 x 8 random 
access Memory. 


The analog to digital conversion lakes 
place on a continuous, channel 
sequencing basis. Data is automatically 
transferred to on board memory at the 
end of each conversion. No A/D 
converter could be easier to use. 

Our A/D board comes standard with 0, 
10V full scale inputs. These inputs can 
be changed by the user to 0, -10V, or 
“SV. +5V or other ranges as needed. 
The user connector has +12 and -12 
volts on it so you Can power your 
SENSOTS. 


@ Accuracy: 0.3%. 
@ input Resistance: 20K Ohms Typ 


PRICE $129.00 


A few applications may include the monitoring of @ flow e temperature @ humidity 
@ wind speed e wind direction @ light intensity @ pressure © RPM © soil moisture 


and many more. 


SIGNAL CONDITIONER 


Our 8 channel signal conditioner is designed for use with both our A/D converters. This 
board incorporates 8 F.£.T. op-amps, which allow almost any gain or offset. For example: an 
input signal that varies from 2.00 to 2.15 volts or a signal that varies from 0 to 50 mV can 
easily be converted to 0-10V output for the A/D. 


The signal conditioners outputs are a high quality 16 pin gold I.C. socket that matches the 
one on the A/D’s so a simple ribbon cable connects the two. The signal conditioner can be 
powered by your Apple or from an external supply. 


FEATURES 

@ 4.5” square for standard card cage and 4 mounting holes for standard mounting, The 
signal conditioner does not plug into the Apple, it can be located up to % mile away from 
the A/D. 

@ 22 pin.156 spacing edge card input connector (extra connectors are easily available i.e. 
Radio Shack). 


@ Large bread board area. 
@ Full detailed schematic included. 


PRICE $79.00 


DIGITAL INPUT/OUTPUT BOARD 


@ Provides 8 buffered outputs toa @ Your inputs can be anything from high 
standard 16 pin socket for standard dip * speed logic to simple switches. 
ribbon cable connection. @ Very simple to program, just PEEK at the 
@ Power-up reset assures that all outputs data. 
are off when your Apple is turned on. @ Now, onone card, youcan have 8 digital 
@ Features 8 inputs that can be driven outputs and 8 digital inputs each with its 
from TTL logic or any 5 volt source. own connector, The super input/output 
board is your best choice for any control 
application. 
The SUPER INPUT/OUTPL'T board manual includes many programs forinputs and outputs. 
A detailed schematic is included. 
Some applications include: 
Burglar alarm, direction sensing, use with relays to turn on lights, sound buzzers, start 
motors. control tape recorders and printers, use with digital joystick. PRICE $69.00 


Please see our other full page ad in this magazine for information on Applied Engineering's Timemaster Clock Card and other products for the Apple. 
Our boards are far superior to most of the consumer electronics made today. All I.C.’s are in high quality sockets with mil-spec. components used throughout. P.C. boards are glass-epoxy 
with gold contacts. Made in America to be the best in the world. All products compatible with Apple II and //e. 


Applied Engineering's products are fully tested with complete documentation and available for immediate delivery. All products are guaranteed with a no hassle three year warranty. 


Texas Residents Add 5% Sales Tax 
Add $10.00 If Outside U.S.A. 


Send Check or Money Order to: 
APPLIED ENGINEERING 
P.O. Box 798 
Carrofiton, TX 75006 


Call (214) 492-2027 
7 am, to 11 p.m. 7 days a week 
MasterCard, Visa & C.0.D. Welcome 
No extra charge for credit cards 
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Review of "Assembly Language for the Applesoft Programmer" 
eoeeee LeEViewed by Bob Sander-Cederlof 


Roy E. Myers (author of Microcomputer Graphics) and C.W. 
Finley, Jr., are the authors of the new book named above, and 


published by Addison-Wesley. We like it. 


Until August of last year we consistently recommended Roger 
Wagner's “Assembly Lines: the Book" when you asked us which 
book would best help you learn Apple assembly language. It was 
especially well-suited to beginners at assembly language who 
were nevertheless somewhat familiar with the Apple and 
Applesoft. But it went out of print with the demise of Softalk 
Publishing, and we can't get them now. 


Finley and Myers have not only filled the void, they have 
improved on our previous favorite. Physically, the book is 
larger (7x9, paper, 361 + vi pages). It is set in large clear 
type. And it only costs $16.95 (Wagner's book was $19.95). I 
especially like the fact that they use the S-C assembler for 
all of the examples. However, if you don't use our assembler, 
the book loses no value; all the examples are written so as to 
be as compatible as possible with other possible assemblers. 


Take another look at that title: “Assembly Language for the 
Applesoft Programmer.“ There is a double meaning there. This 
is not only a text for the Applesoft programmer who wants to 
learn beginning assembly language. It also for the person who 
wants to USE assembly language along with Applesoft programs. 
Combining both languages gives the best of both worlds, but 
doing so involves a lot of work. This book will help. 


The book divides into five main sections: 
* Introduction 


* Fundamentals of 6502 Programming: 6502 architecture, 
instruction set; addressing; branches, loops, nesting; 
logical operations and bit manipulation. 


* Linkages fitting a program into the Apple; accessing 
machine language programs via BLOAD, POKE, USR, ctrl1-Y, and 
"&"; soft switches; using Applesoft ROM subroutines, esp. 
floating point math; development of a working example. 


* Graphics: the Screen, its organization and addressing with 
text, lo-res, and hi-res; ROM routines for lo- and hi-res 
graphics; bit~pattern images and animation; bit-masking 
techniques and complementary drawing; development of a 
working shoot-em-up video game (GREMLIN). 


* Searching and Sorting: &-routine to sort array elements; 
another to search strings. 


There are five useful appendices and an index. 


We think enough of this book to add it to our stock. Check our 
list of books on page 3 for price. 
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Making DosS-less DiSkS......cccccsesccseeee BOD Sander-Cederlof 


Last night I re-invented the wheel, and I think I made a pretty 
good one. I learned a little at the same time. 


When you use the DOS "INIT" command, a copy of DOS is written 
on tracks 0 through 2. If the disk is meant to be a data disk, 
that wastes three perfectly good tracks. Because of the way 
DOS checks for the end of track-sector lists and various other 
things, a standard DOS cannot allow files to be written into 
track 0. But it is perfectly all right to leave the DOS image 
off of tracks 1 and 2 and use them for files. Of course it is 
a good idea to change the image on track 0 so that it will not 
begin to boot DOS and get lost (when you forget it is DOS-less 
and try to boot it anyway). 


There are some more wasted sectors in track 17, the catalog 
track. INIT sets up 15 sectors for the catalog, which is 
enough for 105 files. I have never needed that many, but some 
of you might have even needed more. Last night I needed only 
about 30 files, and I needed every sector I could get to store 
them all. My "wheel" sets up only seven catalog sectors, 
enough for only 49 files. This frees up eight more sectors for 
data. 


With the help of “Beneath Apple DOS" I examined the code in the 
DOS File Manager which handles the INIT command (S$AE8E-AF07). 
This routine calls RWTS to initialize 35 empty tracks ona 
diskette, writes a VTOC in track 17 sector Q and writes 15 
empty catalog sectors on the rest of track 17. Then it scoots 
back to track 0 and writes the DOS image on the first three 
tracks. 


I used Rak-Ware's DISASM to make a source file out of the INIT 
code, and then loaded it into the S-C Macro Assembler. Then 
step-by-step I proceeded to add meaningful labels and comments, 
and modify the code to do what I wanted. 


The File Manager INIT code expects various parameters to have 
been set up by the DOS command parser, and those will not be 
set up when my program runs. I decided I would let my program 
assume that the last disk drive you accessed is the one where 
you have placed the blank disk you want to initialize. 


I also decided to make the volume number always 001. I always 
do this anyway, and generally consider the volume number to be 
a nuisance (since I don't have a Corvus which uses the volume 
numbers for something useful). I£ you want to be able to 
choose the volume number, you could add the code for that 
purpose. Lines 1240-1270 set the volume number into the VTOC 
image and into the RWTS parameter block (IOB). 


Lines 1290-1300 call RWTS to format the blank diskette. 

Beware! It is entirely too easy to forget to remove your 
heavily loaded program diskette before running this program! 

Be absolutely SURE you have the diskette in the drive which you 
WANT to initialize. After this program runs, the disk will 
have no remnant of any data which may have been on it before. 
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Lines 1310-1570 set up a VTOC image. The program assumes that 
part of the VTOC image at $B3BB is already set up, because you 
could not run this program without having read at least one 
VTOC somewhere along the way. The VTOC bitmap is set up first 
to S$FFFFO000 at each sector position, and then the entry for 
track 0 is cleared. Finally the bits for sector 0 and sectors 
9 through 15 of track 17 are cleared. Then lines 1580-1640 
call on RWTS to write out the VTOC on track 17, sector 0. 


The catalog sectors are chained together with a series of 
pointers. A pointer in the VTOC points to the first catalog 
sector, which is almost always track 17 sector 15. A pointer 
in the first catalog sector points to the second one, and so 
on. The last catalog sector points at track 0, which is a flag 
indicating the end of the catalog. (Too bad, because if DOS 
tested for a final pointer to 0,0 instead of just 0,x we coulda 
put the catalog for this data disk all in track 0O and free up 
even more sectors.) 


Lines 1650-1700 clear the catalog buffer, and then lines 
1710-1900 insert the forward pointers and call on RWTS to write 
each sector on the disk. 


Finally, lines 1910-2000 write out a bootup program on track 0 
sector 0. BOOTER is the code that will be executed if you 


accidentally try to boot our DOS-less disk. 


Lines 2010-2090 finish setting up a call to RWTS, and check for 
an I/O error. I didn't bother to write any error handler into 
this program, as you can see by the BRK in line 2090. If you 
want you can printout the DOS error code at this point, or at 
least get it in the A-register before the BRK. 


The BOOTER program is tricker than it looks. Anyway it tricked 
me a lot. First notice the .PH and .EP directives in lines 
2120 and 2280. These tell the assembler to continue assembling 
bytes following the preceding code, but to assemble it with the 
assumption that at execution time it will be origined at $0800. 
The boot ROM on the disk controller reads track 0 sector 0 into 
$800-S8FF, so BOOTER has to be set up to run there. 


Notice line 2140, which is “.HS 01" The boot ROM reads the 
first sector into $800-8FF, then checks location $800 to see 
how many sectors you want the boot ROM to read. About the only 
disk I have heard of which has anything other than 01 in this 
byte is the BASICS disk. If you put, for example, 03 in that 
byte sectors 1 and 2 would be read into $900 and SA00. You can 
read up to 16 sectors this way, but remember that the sector 
numbers will not be the same as the ones you use when you write 
them with RWTS. (RWTS uses a table to convert logical sector 
numbers into physical sector numbers.) 


Line 2150 turns off the disk motor. I forgot the first time, 
and of course the drive just kept spinning. 


Lines 2160-2210 print out the message from lines 2240-2270. My 
first attempt I called the standard COUT subroutine at SFDED to 
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print each character, and I lost an hour finding out why I 
never saw my message. Instead, the drive just kept grinding 
the head to track 0, over and over and over.... But it worked 
if I first copied the boot ROM code from $C600 down to $8600, 
and typed 8600G to boot. I finally figured out that PR#6 sets 
the output hook to slot 6 and leaves it there. Then the next 
character that is printed (usually the prompt character for 
whatever language you are in) through COUT goes to the disk 
interface and proceeds to boot. My message sent another 
character to COUT and restarted the boot, ad infinitum. 
Changing line 2190 to “JSR SFDFO“ fixed it all. 


After printing the message line 2220 jumps to the initial entry 
point of the monitor, so you get a "*“ prompt. If you 
previously had DOS in memory, you will probably be able to use 
3D0G to get back to BASIC or the assembler or whatever. 
Otherwise, stick in a disk that DOES have DOS and try booting 
again. 


Line 2300 is just window dressing. It assures that the rest of 
track 0 sector 0 will have nothing but zeroes in it. No 
particular value, but I like it that way. 


1000 #SAVE S.DOSLESS INIT 
03D9- 1020 RWTS " +EQ $0309 
03E3- 1030 GeTIOB "EQ $03E3 
B3BB- 1050 .EQ $B3BB 
B3C1- 1060 V.VOLUME ‘EQ $B3C1 
B3EB- 1070 V.NXTTRK + BQ $B3EB 
B3EC- 1080 V.DIRECT :EQ $B3EC 
B3F3- 1090 Y.BITMAP -EQ $B3F3 
BUBB- 1110 CATALOG.BUFFER .EQ $B4BB 
BUBC- 1120 C. TRACK *EQ $B4BC 
BUBD- 1130 ¢. SECTOR "EQ $B4BD 
BT7E8~ 1150 R.PARMS  .EQ $B7E8 
B7EB- 1160 R.VOLUME EQ $B7EB 
BT7EC~ 1170 R-TRACK © EQ. $B7EC 
B7ED- 1180 R.SECTOR [EQ $B7ED 
B7FO- 1190 R.BUFFER [EO $B7F0,BT7F1 
B7F4- 1200 R-OPCODE —-EQ B7F4 
1220 .OR $800 
1580 DOSLESS INIT 
0800- A9 01 ~—s-: 1250 LDA #1 INIT AS VOLUME 001 
0802- 8D EB B7 1260 STA R.VOLUME 
0805- 8D C1 B3 1270 STA V.VOLUME 
8- A908 =«12002~='é*~té‘«C*éW*éC CSMSSON ~~ CINTT OPCODE FOR RWTS 
ope 4 A3 08 1309 LDA £f0t AWTS HEIN 
1310 #---MAKE A GENERIC VTOC---------- 
O80D- A9 11. ~—s- 1320 LDA #$11 
O80F- 8D EB B3 1330 STA V.NXTTRK 
RH ie ai BR 
08 17 - 8c EC B3 1360 STY V-DIRECT | FORWARD DIRECTION 
O81B- 8C ED BT 1360 STY R.SECTOR 
1390 #---PREPARE BITMAP------------~-- 
O81E- AO 8c —«- 14800 LDY #4%35 
oa a ea 
Sa 9 gra varoue,s 
0827- 99 F3 B3 1450 STA V.BITMAP,Y 
O83i- 88 3 1420 DEY ' 
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O82B- AQ F 1470 LDA #$FF 
o82D- 99 F3 B3 14 0 STA V.BITMAP,Y 
o83)- 20 ER 1560 eo 
08 36. BC E B3 1520 STY V.BITMAP ; CANNOT ALLOCATE TRACK 0 
OB Aa- BE FN B3 ieo ayy . Y=1, RESERVE F... 
083D- 8C 37 BY 1550 STY 4#174V. BITMAP FREE SECTOR 
ee a 
- e + eee 
oe pom et ER Te 
0845- AQ BB 
A fl i 
OBuee BB FF B7 1620 STA R.BUFFER+1 
O84F- A9 02 ~=—«: 1630 LDA #2 RWTS WRITE OPCODE 
0851- 20 A3 08 1640 JSR CALL. RWTS.OP.IN.A 
1650 #.--PREPARE CATALOG SECTOR------- 
go-go Eee 
OBe7- Ob BB BA 1€60 .2 STA CATALOG. BUFFER, X 
OA Ee A 100 INX 
1710 #---WRITE CATALOG CHAIN---------~ 
O85D- A9 BB _‘-1720 LDA #CATALOG. BUFFER 
Op ee gp FQ Pt 1778 LDA /CATALOG. BUFFER 
0864- 8D F1 BT 1750 STA R.BUFFER+1 
O867- A911 +1760 LDA #17 TRACK 17 
0869- AO OF _ 1770 LDY #1 START IN SECTOR 15 
OR OR: Bp BE By 4760 3 STA C. TRACK 
OBOE- BC ED BY 1490 : STY R.SECTOR 
2 4 481 STY C.SECTOR 
ORT e- 86 BR Bs 1838 JSR CALL.RWTS 
0878- AC BD BY 1830 LDY C. SECTOR 
ee ee 
SE BB By ham 
a Pa ace 
OBBAe 20 AS 08 1900 JSR CALL.RWTS 
1910 ®=---WRITE BOOT SECTOR------------ 
SP i a HS ee pee 
0892- Ad 0 1800 LDA /BOOTER 
0894~ 8D F1 B7 1950 STA R.BUFFER+1 
td i AB ce B eG Sh To RACK 
tt D ED BI 1359 STA R.SECTOR 
O89F- 20 A6 08 1990 JSR CALL. RWTS 
O8A2- 60 2000 . RTS 
5020 CALL.RWTS.OP.IN.A 
O8A3- 8D F4 B7 2030 ate att R .OPCODE 
O8A6- 20 E3 03 2050 * JSR GETIOB 
O8A9- 20 DO 03 2060 JSR RWTS 
O8AC- BO 01 ~ 2070 BCS .1 ERROR 
O8AE- 60 2080 RTS 
O8AF- 00 2090 .1 BRK 
1M 
2120 .PH $800 
0800- 01 $i 6 atau oa 
0801- BD 88 CO 2150 LDA $C088,X MOTOR OFF 
O804- AO 00 2160 LDY #0 
S38: #3 8 08 £18 <1 Eph Agsuce, 
O80B- 20 FO FD 2190 JSR $FDFO 
Brees BO Gen 25K BNE 91 
0811- Re £3 FF 2220 .2 JMP $FF59 
DOGD. Siewecesceer a= occas eae saan 
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2240 MESSAGE 


0817- 87 2250 .HS 8D8D8787 
0818- CE CF AO 
081B- C4 CF D3 
O81E- AO C9 CD 
0821- C1 C7 C5 
O824- AO CF CE 
0827- AO D4 C8 
OBob- Ch C8 D3 
0830- CB 2260 .AS -/NO DOS IMAGE ON THIS DISK/ 
0831- 8D 8D 00 2270 -HS 8D8D00 
280 . EP 
ee 
O8E4- 300 .BS 256,0 
2310 San-n-- een nee nn een n ene eee 


Correction for Symbol Table Source Maker...Bob Sander-Cederlof 


I went to great lengths to verify the address of the entry into 
RENUMBER used by Peter's and Bruce's program, and the day after 
picking up the printed newsletters Bill discovered that I had 
used a pre-release copy of Version 2.0. The address in the 
actual release is different. The correct line 1060 for the 
version we are sending out is: 


1060 RENUMBER .EQ S$D658 for the D000 version 
OR 1060 RENUMBER .EQ $1658 for the 1000 version 


In any case, just be sure the address is the location of the 
CPX #$06 instruction. 


Don Lancaster's AWliIe TOOLKIT 


Solve all of your Applewriter™ Ile hassles with these eight diskette sides 
crammed full of most-needed goodies including ... 


Patches for NULL, shortline, IIc detrashing, full expansion 
Invisible and automatic microjustify and proportional space 
Complete, thorough, and fully commented disassembly script 
Detailed source code capturing instructions for custom mods 
Clear and useful answers to hundreds of most-asked questions 
Camera ready print quality secrets (like this ad, ferinstance) 
New and mind-blowing WPL routines you simply won't believe 
Self-Prompting (!) glossaries for Diablo, Epson, many others 
Includes a free "must have" bonus book and helpline service 


All this and bunches more for only $39.95. Everything is unlocked and 
unprotected. Order from SYNERGETICS, 746 First Street, Box 809-AAL, 
Thatcher, AZ, 85552. (602) 428-4073. VISA or MC accepted. 
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Building Hi-Res Pre-Shift Tables............eGianluca Pomponi 
Pisa, Italy 


Given my interest in everything related to graphics, I read 
eagerly Bob's article “Generating Tables..." in the Dec 94 
issue of AAL. I haven't yet had the chance to read the Apple 
Supplement of Byte (my local newsstand receives it 
discontinuously); however, I had already heard about the use of 
preshift tables in animation. I experimented with this 
technique some time ago, getting excellent results in moving 
colored shapes against some very complex backgrounds with 
relatively simple code. 


Maybe one of the most challenging steps is typing in the 
preshift tables. Writing a program to generate the tables is 
not difficult, and is probably better. The code that follows 
only takes $68 bytes as a subroutine, using two page zero 
variables. And it only takes 24 milliseconds to generate the 
tables, which is many times faster than reading them from a 
disk. 


The Byte article used 14 tables of 256 bytes each. They 
correspond to left and right portions of each possible 8-bit 
value shifted any amount from 1 to 7 bits. No columns are Kept 
in memory for shifting 0 bits, as the result is entirely too 
predictable. 


Since, in hi-res graphics, the high bit does not get shifted, 
you can deal with it separately. Before looking up the 
preshifted values you can split off the high bit and rejoin it 
later. The extra code for this is very minor, and it results 
in a vast memory saving. By doing it this way we get by with 
12 tables of 128 bytes each (six pages instead of 14!). Six 
tables for the left side results and six for the right, for 
every possible shift of from 1 to 6 bits, for every possible 
value from $00 to S$7F. 


I sometimes find it worthwhile to limit the quotient-remainder 
tables such as Bob generated in the December article to only 
256 bytes each (instead of 280), using code like the following 
to read them when the X-coordinate is larger than 255: 


LDX XCOORD low byte of xcoord 
LDA QUO+4,X 

CLC 

ADC #$24 

STA XBYTE 

LDA REM+4,X 

STA XBIT 


Here now is my program to generate the preshift tables, as 
modified by Bob. Lines 1080-1210 allocate space for the 12 
tables, each 128 bytes long. I put them at $0900 for this 
example, but of course you can put them wherever you wish. 


Lines 1230-1310 are a macro definition. The macro is called 


out six times in the main loop, once for each shift of a value. 
For the benefit of those without a macro assembler, I have 
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shown the expansion in the listing of lines 1430-1480. Some of 
the code in the macro could have been handled by a subroutine, 
but it would save a negligible amount of space at a cost of an 
non-negligible amount of time. 


The shifting algorithm is familiar to those of you who have 
been fiddling with hi-res for awhile. Remember that the 
picture bits are stored backwards in each byte, so that 
shifting the picture on the screen right one bit requires 
shifting the bits in memory left within each byte, stepping 
over bit 7, and from byte to byte in a left-to-right direction. 


The little program called TIME, lines 1530-1660, calls the 
BUILD program 1000 times. I ran it and clocked it at a little 
less than 24 seconds, which means building once took less than 
24 milliseconds. The tables would take up six disk sectors if 
they were stored part of the program on disk. The disk spins 
at 300 rpm, or 200 milliseconds per revolution. The absolute 
minimum time to read six sectors would be 67.5 milliseconds, 
but in actual practice it takes closer to a half second. It 
depends on whether it is part of a larger file or stored as a 
separate file, the latter taking longer. Since the program 
only needs to be executed once, even the memory it occupies it 
available to the program for other purposes, 


1000 *SAVE S.BUILD. PRESHIFT. TABLES 
1010 S--------- eee ee eee eee 


® WRITTEN BY G. L. POMPONI, PISA, ITALY 
® MODIFIED BY BOB SANDE -CEDERLOF 
L.BYTE .EQ 0 


U0 OF See eee eee ere aeeeees 
1080 .OR $900 
0900- 1090 SHIFT. 1 : 28 
0980- 1100 SHIFT.2 .BS 12 
0A00- 1110 SHIFT.3 © <BS 12 
OA80- 1120 SHIFT. “BS 128 
OBO0- 1130 SHIFT.5  .BS 128 
OB80- 1140 SHIFT.6 — .BS 128 
0co0- 1120 REMND. 1 .BS 128 
0C80- 1170 REMND.2 .BS 128 
OD00- 1180 REMND.3 «BS 128 
0D80- 1190 REMND. °BS 12 
OE00-~ 1200 REMND. “BS 128 
OE80- 1210 REMND. “BS 128 
1230 .MA SHIFT 
1240 ASL L.BYTE 
1250 ROL R.BYTE 
1260 LDA L.BYTE 
1580 STA SHIFT. ]1,X 
1290 LDA R.B 
1300 STA REMND. ]1,X 
1300 & = 
1330 .OR $800 
1340 & JeneueeaoSe eee neneeeweeneseeeaas 
1350 BUILD. PRESHIFT. TABLES 
0800- A2 00 1300 : LDX #0 FOR X = 0 TO $7F 
0802- 86 00s 1 5 1 STX L.BYTE 
O804- A900 ~=—- 1390 LDA #0 
0806- 85 01 1400 STA R.BYTE 
0808- 06 00 ~=—«-'1410 ASL L.BYTE 
{D0 @eseeeere neuen acco eeoseedn pateeeies 
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OSOA- 1430 SHIFT 1 


O80A- 06 00 0000> ASL L.BYTE 
O80C- 26 01 0000> ROL R.BYTE 
O80E- A5 00 0000> LDA L.BYTE 
0810- 4A 0000> LSR 
0811- 9D 00 09 0000> STA SHIFT.1,X 
O814— A5 01 0000> LDA R.BYTE 
0816- 9D 00 OC 0000> STA REMND.1,X 
0819- 1440 >SHIFT 2 
0819—- 06 00 0000> ASL L.BYTE 
081B- 26 01 0000> ROL R.BYTE 
081D= A5 00 0000> LDA L.BYTE 
O81F= 4A 0000> LSR 
0820- 9D 80 09 0000> STA SHIFT.2,X 
0823=- AS 01 0000> LDA R.BYTE 
0825- 9D 80 OC 0000> STA REMND.2,X 
0828- 1450 >SHIFT 3 
0828- 06 00 0000> ASL L.BYTE 
O82A= 26 01 0000> ROL R.BYTE 
082C=- A5 00 0000> LDA L.BYTE 
O82E- 4A 0000> LSR 
O82F- 9D 00 OA 0000> STA SHIFT. 3,X 
0832= A5 01 0000> LDA R.BYTE 
ob ste 9D 00 OD 0000> STA REMND. 3,X 
0837- 1460 >SHIFT 4 
0837=- 06 00 0000> ASL L.BYTE 
0839- 26 01 0000> ROL R.BYTE 
06 3B- 5 00 0000> LDA L.BYTE 
O83D- 4A 0000> LSR 
O83E- 9D 80 OA 0000> STA SHIFT.4,X 
0841— A5 01 0000> LDA R.BYTE 
0843- 9D 80 OD 0000> STA REMND.4,X 
0846 — 1470 >SHIFT 5 
0846- 06 00 0000> ASL L.BYTE 
O848- 26 01 0000> ROL R.BYTE 
O84A=- A5 00 0000> LDA L.BYTE 
O84c=- 4A 0000> LSR 
O84D- 9D 00 OB 0000> STA SHIFT.5,X 
0850- A5 01 0000> LDA R.BYTE 
0852=- 9D 00 OE 00902 STA REMND.5,X 
0855- 14 >SHIFT 
0855= 06 00 0000> ASL L.BYTE 
seea ag 00 G000:§=— gk BITE 
oe B hi 0000> LSR 
085C=- 9D 80 OB 0000> STA SHIFT.6,X 
O85F- AS 01 0000> LDA R.BYTE 
0861- 9D 80 OE 000), STA REMND.6,X 
O864- E8 1560 IN xX 
0865= 10 9B 1510 BPL .1 (.. UNTIL $80) 
0867- 60 1920 . RTS 
12h9 # BUILDS 1000 TIMES IN LESS THAN 24 SECONDS 
1390 7 SO LESS THAN 24 MILLISECONDS TO BUILD ONCE 
0868- AQ O04 1370 TIME LDA #4 4#250 = 1000 
O86A- 8D 00 05 1580 STA $500 
O86D- AO FA 1590 .1 LDY #250 
O86F- 20 00 08 1600 .2 JSR BUILD. PRESHIFT. TABLES 
0872- 88 1610 DEY 
0873—- DO FA 1620 BNE .2 
0875=- CE 00 05 1630 DEC $500 
0878- p90 F3 1640. BNE .1 
O87A~- 60 1690 RTS 
1660 Semeannn cnc nee ee se ecneneeeuee 
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